home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_25390.txt < prev    next >
Text File  |  1990-08-14  |  1KB  |  48 lines
  1. -- background: 25390 from stack: in
  2. -- bmap block id: 31480
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: School Setup
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   global interactiveDemo
  9.   installMenuBar 1160,1161,1162,1163,1164,1165
  10.   if interactiveDemo then
  11.     show card field "Instructions"
  12.   end if
  13.   put false into interactiveDemo
  14. end openBackground
  15.  
  16. on doMenu menuItem
  17.   lock screen
  18.   if menuItem contains "About" then
  19.     restoreMenuBar
  20.     go to card short name of this background of background "About"
  21.     unlock screen with zoom close
  22.   else if menuItem is "Home" then
  23.     restoreMenuBar
  24.     go home
  25.     unlock screen
  26.   else if menuItem contains "Quit" then
  27.     restoreMenuBar false
  28.     go to card "Mac School¬Æ Shell"
  29.     unlock screen with zoom close
  30.   else if menuItem is "First" then
  31.     unlock screen
  32.     pass doMenu
  33.   else if menuItem is "Page Setup‚Ķ" then -- do nothing
  34.   else
  35.     unlock screen
  36.     go card menuItem
  37.     --if the result is "No Such Card" then pass doMenu
  38.   end if
  39. end doMenu
  40.  
  41.  
  42. on flashButton name
  43.   set hilite of button name to true
  44.   wait 1
  45.   set hilite of button name to false
  46. end flashButton
  47.  
  48.